home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / term / vltj5867.lha / VLT / rexx / Carrier.vlt < prev    next >
Text File  |  1994-03-27  |  436b  |  26 lines
  1. /** carrier.vlt
  2. *
  3. *   Check for carrier every two seconds. If status changes to
  4. *   no carrier, emit this, so that FifoBBS can log the person out.
  5. *
  6. **/
  7. carrier = 0
  8.  
  9. do i = 1
  10.    "extract serialstatus"
  11.    if bittst(d2c(vlt.serialstatus), 5) then do
  12.       if carrier ~= 0 then do
  13.          call delay(50)
  14.          "emit *R*NNO CARRIER*R*N"
  15.          carrier = 0
  16.       end
  17.    end
  18.    else do
  19.       carrier = 1
  20.    end
  21.  
  22.    call delay 100
  23. end
  24.  
  25.  
  26.